home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u288.dms / in.adf / Include / Exec / Nodes.i < prev    next >
Encoding:
Text File  |  1990-08-27  |  635 b   |  33 lines
  1. {
  2.     Nodes.i for PCQ Pascal
  3.  
  4.     This file defines nodes, which are used throughout the Amiga
  5.     system software to link all sorts of things.
  6. }
  7.  
  8. type
  9.  
  10.     NodeType = (NTUnknown, NTTask, NTInterrupt, NTDevice, NTMsgPort,
  11.         NTMessage, NTFreeMsg, NTReplyMsg, NTResource, NTLibrary,
  12.         NTMemory, NTSoftInt, NTFont, NTProcess, NTSemaphore);
  13.  
  14. { A normal node }
  15.  
  16.     Node = record
  17.     ln_Succ : ^Node;
  18.     ln_Pred : ^Node;
  19.     ln_Type : NodeType;
  20.     ln_Pri  : Byte;
  21.     ln_Name : String;
  22.     end;
  23.     NodePtr = ^Node;
  24.  
  25. {  A stripped node, with no type checking }
  26.  
  27.     MinNode = Record
  28.     mln_Succ,
  29.     mln_Pred : ^MinNode;
  30.     end;
  31.     MinNodePtr = ^MinNode;
  32.  
  33.